100 REM"[211]=S[193]"VMSUP2.REL",8[157] 110 [143]------------------------------ 120 [143] BIT-MAPPED GRAPHICS F.COVITZ 130 [143]------------------------------ 135 [141]280 140 TM[178]55:CS[178]0:[135]N$,SP:[153] 150 [150][165]H(V)[178][181](V[173]256) 160 [150][165]L(V)[178]V[171]256[172][165]H(V) 170 AD[178][194](TM)[170]256[172][194](TM[170]1)[171]SP[171]1 180 V[178]AD 190 [151]TM,[165]L(V):[151]TM[170]1,[165]H(V) 200 [151]TM[171]4,[165]L(V):[151]TM[171]3,[165]H(V) 210 [129]I[178]0[164]SP[170]1:[135]V 220 [139]V[178]999[167][135]V:[137]260 230 CS[178]CS[170]V:[153]"ON"I 240 [139]V[179]0[167]V[178]AD[171]V:V%[178][165]H(V):V[178][165]L(V):[151]AD[170]I,V:V[178]V%:I[178]I[170]1 250 [151]AD[170]I,V:[130]I 260 [139]CS[179][177]V[176]I[179][177]SP[170]1[167][153]"FIX DATA";:[128] 270 [153]N$": AD="AD:[141]490:[128] 280 [153]"PROGRAM BY DR. FRANK COVITZ 290 PRINT"RELOCATION - LIZ DEAL 300 [153]"BIT SCREEN AT 8192 $2000-HEX 310 PRINT"SYS NR NO LONGER CLEARS THE BIT SCREEN, 320 [153]" MONITOR SAVE $2000-3F40 340 PRINT"X,Y CAN BE ANY VALID BASIC EXPRESSIONS 350 [153]"SYNTAX ERROR IN XXXX 360 PRINT" MISSING PUNCTUATION OR PARAMETERS 370 [153]"ILLEGAL QUANTITY ERROR IN XXXX 380 PRINT" X NOT 0-319, OR Y NOT 0-199 390 [153]"CALL POINTS: 400 PRINT"AD SETUP BIT SCREEN SYS IN 410 [153]"AD+3 NORMAL, DOESN'T CLR SYS NR 420 PRINT"AD+6[160] CLR BIT SCREEN SYS CL 430 [153]"AD+9 MOVE TO X,Y SYS MV,X,Y 440 PRINT"AD+12 DRAW FROM PREV TO X,Y SYS DR,X,Y 450 [153]"AD+15 SET PIX ON AT X,Y SYS PX,X,Y 460 PRINT"AD+636 POKE IT TO CHANGE COLORS 480 [142] 490 [153]"USE ANY KEY TO GET OUT OF BIT MODE" 495 [133]"WANT TO SEE A TERRIBLE DEMO YCMDCMDCMD";I$ 500 [139][198](I$)[178]78[167][142] 8000 [151]AD[170]636,2[172]16[170]1:[143] COLORS 8020 [158]AD :[143] SETUP BIT SCRN 8030 [158]AD[170]6 :[143] CLR VM 8040 [158]AD[170]15,10,20 :[143] MOVE TO X,Y 8050 [158]AD[170]9,319,199:[143] DRAW TO 8060 [158]AD[170]9,160,0 :[143] DRAW TO 8070 [158]AD[170]9,0,199 :[143] DRAW TO 8080 [158]AD[170]12,99,6 :[143] SET PIX 8090 [158]AD[170]12,99,8 :[143] SET PIX 8100 [158]AD[170]12,99,20 :[143] SET PIX 8110 [161]I$:[139]I$[178]""[137]8110 8120 [158]AD[170]3 :[143] RESTORE NORMAL 8130 [142] 9000 [131] "VM SUPPORT",827 51200 [131] 76,-660, 76,-709, 76,-607, 76,-137, 76,-757 51201 [131] 32,-747, 140, 60, 3, 140, 62, 3, 141, 61 51202 [131] 3, 141, 63, 3, 32,-747, 140, 64, 3, 140 51203 [131] 66, 3, 141, 67, 3, 32,-458, 169, 0, 133 51204 [131] 254, 56, 169, 199, 237, 64, 3, 72, 41, 248 51205 [131] 10, 38, 254, 10, 38, 254, 10, 38, 254, 72 51206 [131] 141, 80, 3, 165, 254, 141, 81, 3, 104, 10 51207 [131] 38, 254, 10, 38, 254, 109, 80, 3, 133, 253 51208 [131] 165, 254, 109, 81, 3, 133, 254, 173, 60, 3 51209 [131] 41, 248, 101, 253, 133, 253, 173, 61, 3, 101 51210 [131] 254, 133, 254, 104, 41, 7, 101, 253, 133, 253 51211 [131] 165, 254, 105, 32, 133, 254, 173, 60, 3, 41 51212 [131] 7, 170, 189,-820, 141, 68, 3, 96, 32,-747 51213 [131] 140, 62, 3, 141, 63, 3, 32,-747, 140, 66 51214 [131] 3, 32,-458, 56, 173, 62, 3, 237, 60, 3 51215 [131] 141, 69, 3, 173, 63, 3, 237, 61, 3, 141 51216 [131] 70, 3, 56, 173, 66, 3, 237, 64, 3, 141 51217 [131] 71, 3, 173, 67, 3, 237, 65, 3, 141, 72 51218 [131] 3, 173, 62, 3, 141, 60, 3, 173, 63, 3 51219 [131] 141, 61, 3, 173, 66, 3, 141, 64, 3, 173 51220 [131] 67, 3, 141, 65, 3, 169, 0, 141, 79, 3 51221 [131] 44, 70, 3, 16, 23, 173, 69, 3, 32,-491 51222 [131] 141, 69, 3, 173, 70, 3, 32,-492, 141, 70 51223 [131] 3, 169, 2, 141, 79, 3, 44, 72, 3, 16 51224 [131] 27, 173, 71, 3, 32,-491, 141, 71, 3, 173 51225 [131] 72, 3, 32,-492, 141, 72, 3, 24, 173, 79 51226 [131] 3, 105, 4, 141, 79, 3, 174, 69, 3, 236 51227 [131] 71, 3, 173, 70, 3, 168, 237, 72, 3, 16 51228 [131] 27, 173, 71, 3, 141, 69, 3, 173, 72, 3 51229 [131] 141, 70, 3, 142, 71, 3, 140, 72, 3, 24 51230 [131] 173, 79, 3, 105, 8, 141, 79, 3, 173, 69 51231 [131] 3, 32,-491, 141, 73, 3, 173, 70, 3, 32 51232 [131] -492, 141, 74, 3, 56, 48, 1, 24, 110, 74 51233 [131] 3, 110, 73, 3, 169, 0, 168, 141, 77, 3 51234 [131] 141, 78, 3, 174, 79, 3, 173, 77, 3, 205 51235 [131] 69, 3, 173, 78, 3, 237, 70, 3, 16, 66 51236 [131] 24, 173, 73, 3, 109, 71, 3, 141, 73, 3 51237 [131] 173, 74, 3, 109, 72, 3, 141, 74, 3, 48 51238 [131] 25, 56, 173, 73, 3, 237, 69, 3, 141, 73 51239 [131] 3, 173, 74, 3, 237, 70, 3, 141, 74, 3 51240 [131] 32,-445, 76,-427, 32,-446, 177, 253, 13, 68 51241 [131] 3, 145, 253, 238, 77, 3, 208, 178, 238, 78 51242 [131] 3, 208, 173, 96, 232, 138, 10, 170, 189,-787 51243 [131] 72, 189,-786, 72, 96, 173, 62, 3, 201, 64 51244 [131] 173, 63, 3, 233, 1, 176, 12, 173, 66, 3 51245 [131] 201, 200, 173, 67, 3, 233, 0, 144, 8, 32 51246 [131] -709, 162, 14, 108, 0, 3, 96, 56, 73, 255 51247 [131] 105, 0, 96, 32,-566, 165, 253, 41, 7, 73 51248 [131] 7, 240, 8, 230, 253, 208, 17, 230, 254, 208 51249 [131] 13, 24, 165, 253, 105, 57, 133, 253, 165, 254 51250 [131] 105, 1, 133, 254, 96, 32,-588, 165, 253, 41 51251 [131] 7, 208, 15, 56, 165, 253, 233, 57, 133, 253 51252 [131] 165, 254, 233, 1, 133, 254, 208, 8, 165, 253 51253 [131] 208, 2, 198, 254, 198, 253, 96, 32,-533, 14 51254 [131] 68, 3, 144, 13, 46, 68, 3, 165, 253, 233 51255 [131] 7, 133, 253, 176, 2, 198, 254, 96, 32,-500 51256 [131] 78, 68, 3, 144, 13, 110, 68, 3, 165, 253 51257 [131] 105, 8, 133, 253, 144, 2, 230, 254, 96, 169 51258 [131] 63, 133, 254, 169, 0, 133, 253, 168, 133, 253 51259 [131] 145, 253, 160, 63, 162, 32, 145, 253, 136, 208 51260 [131] 251, 198, 254, 202, 208, 246, 96, 169, 251, 162 51261 [131] 0, 157, 0, 4, 157, 0, 5, 157, 0, 6 51262 [131] 232, 208, 244, 162, 232, 157, 255, 6, 202, 208 51263 [131] 250, 96, 120, 173, 17, 208, 9, 32, 141, 17 51264 [131] 208, 173, 24, 208, 9, 8, 141, 24, 208, 32 51265 [131] -635, 32,-607, 173, 0, 3, 141, 82, 3, 173 51266 [131] 1, 3, 141, 83, 3, 173,-818, 141, 0, 3 51267 [131] 173,-819, 141, 1, 3, 88, 96, 120, 234, 234 51268 [131] 234, 173, 17, 208, 41, 223, 141, 17, 208, 173 51269 [131] 24, 208, 41, 247, 141, 24, 208, 169, 32, 32 51270 [131] -637, 173, 82, 3, 141, 0, 3, 173, 83, 3 51271 [131] 141, 1, 3, 96, 32, 253, 174, 32, 158, 173 51272 [131] 32, 170, 177, 96, 32,-15, 160, 0, 177, 253 51273 [131] 13, 68, 3, 145, 253, 96, 72, 138, 72, 152 51274 [131] 72, 32,-709, 104, 168, 104, 170, 104, 108, 0 51275 [131] 3,-587,-529,-565,-562,-587,-584,-565,-496,-532 51276 [131] -529,-532,-562,-499,-584,-499,-496,-770, 128, 64 51277 [131] 32, 16, 8, 4, 2, 1, 999, 42059